home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / asppw112 / fdattr.asp < prev    next >
Encoding:
Text File  |  1999-01-07  |  3.0 KB  |  111 lines
  1. <HTML><BODY>
  2. <%
  3.     ' GetFDAttr(ByVal vsPathName As String) As Integer
  4.     ' output:  >=0    File/Dir attribute
  5.     '          -1   Failure
  6.               
  7.     ' SetFDAttr(ByVal vsPathName As String, ByVal vnAttr As Integer) As Integer
  8.     ' output:      1   Succeed
  9.     '          -1   Failure
  10.     
  11.     ' Sample Operation:
  12.     ' Toggle system bit of a file in virtual directory of "/".
  13.     '
  14.     '
  15.     '
  16.     ' This file is provided as part of  ASP Power Widgets Samples
  17.     '
  18.     ' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT
  19.     ' WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED,
  20.     ' INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES
  21.     ' OF MERCHANTABILITY AND/OR FITNESS FOR A  PARTICULAR
  22.     ' PURPOSE.
  23.  
  24.     ' Copyright 1997-1998. All rights reserved.
  25.     ' Dalun Software Inc. ASP Power Widgets
  26.     ' http://www.dalun.com
  27.     ' http://members.tripod.com/ActiveServerPage/
  28.       
  29.         
  30.     vbNormal    =    0    'Normal
  31.     vbReadOnly    =    1    'Read-only
  32.     vbHidden    =    2    'Hidden
  33.     vbSystem    =    4    'System
  34.     vbDirectory    =    16    'Directory or folder
  35.     vbArchive    =    32    'File has changed since last backup
  36.  
  37.     sDirName = Server.MapPath("/")
  38.     response.write "<p><h2>File/Directory Attribute Demo.</h2></p>"
  39.  
  40.     Set oFDMgt = Server.CreateObject("ASPPW.FDMgt")
  41.     if oFDMgt.ReadDir(sDirName)= -1 then
  42.         response.write "Read Directory Action Failed.<br>"
  43.         response.write oFDMgt.GetLastErrDescription
  44.     else
  45.         Set oFilelist = ofdmgt.Files
  46.  
  47.         if oFilelist.count =0 then
  48.             response.write "Demo cann't proceed since there is no file in " & sDirName & "."        
  49.         else
  50.             set file=oFilelist.Item(1)
  51.                 sAttr=""
  52.                 nAttr=ofdmgt.GetFDAttr( sDirName & "\" & file.name) 'Demo !!!
  53.                 if nAttr And vbReadOnly then
  54.                     sAttr=sAttr & "R "
  55.                 end if
  56.                 if nAttr And vbHidden then
  57.                     sAttr=sAttr & "H "
  58.                 end if
  59.                 if nAttr And vbSystem then
  60.                     sAttr=sAttr & "S "
  61.                 end if
  62.                 if nAttr And vbArchive then
  63.                     sAttr=sAttr & "A "
  64.                 end if
  65.                 if sAttr="" then
  66.                     sAttr="----<br>"
  67.                 end if
  68.  
  69.                 response.write "<font size=2 face=""Courier New"">" & file.Name & " attribute is: " & sAttr & "</font><br>"
  70.                 response.write "Now change its attribute bit of <u>System</u><br>"
  71.                 nAttr = nAttr xor vbSystem
  72.                 
  73.                 iReturnCode=ofdmgt.SetFDAttr( sDirName & "\" & file.name, nAttr) 'Demo !!!
  74.                 if iReturnCode = 1 then
  75.                     response.write "Setting attribute succeeded.<br>"
  76.                     sAttr=""
  77.                     nAttr=ofdmgt.GetFDAttr( sDirName & "\" & file.name) 'Demo !!!
  78.                     if nAttr And vbReadOnly then
  79.                         sAttr=sAttr & "R "
  80.                     end if
  81.                     if nAttr And vbHidden then
  82.                         sAttr=sAttr & "H "
  83.                     end if
  84.                     if nAttr And vbSystem then
  85.                         sAttr=sAttr & "S "
  86.                     end if
  87.                     if nAttr And vbArchive then
  88.                         sAttr=sAttr & "A "
  89.                     end if
  90.                     if sAttr="" then
  91.                         sAttr="----<br>"
  92.                     end if
  93.                     response.write "<font size=2 face=""Courier New"">" & file.Name & " attribute is: " & sAttr & "</font><br>"
  94.                 else
  95.                     response.write "Setting attribute failed. " & oFDMgt.GetLastErrDescription
  96.                 end if
  97.  
  98.             end if
  99.  
  100.             Set oFilelist=nothing
  101.         end if
  102.  
  103.     Set oFDMgt = Nothing    
  104. %>
  105. </BODY></HTML>
  106.  
  107.  
  108.  
  109.  
  110.  
  111.